home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / mac / Road Construction Ahead / Road Construction Ahead / 00075_initFrame.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  682 b   |  24 lines
  1. global gMenuObject, gInitObject
  2.  
  3. on exitFrame
  4.   if the initIndex of gInitObject < the number of lines in the commandList of gInitObject then
  5.     initProcess(gInitObject)
  6.     go(the frame)
  7.   else
  8.     startBuffering()
  9.     set the currentH of gInitObject to the right of gInitObject
  10.     moveProgBar(gInitObject)
  11.     updateStage()
  12.     puppetSprite(the progBarChannel of gInitObject, 0)
  13.     puppetSprite(the loaderChan of gInitObject, 0)
  14.     setPrefs(gMenuObject, the prefsString of gInitObject)
  15.     showPrintOptions(gInitObject, 1)
  16.     set gInitObject to EMPTY
  17.     repeat while soundBusy(1)
  18.     end repeat
  19.     cursor(0)
  20.     puppetTransition(51, 1)
  21.     go("OpeningCredits")
  22.   end if
  23. end
  24.